home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed26.d64 / the race (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  181 lines
  1. 10 POKE53280,0:POKE53281,0:POKE53272,21:P=0
  2. 20 PRINT"[147][159]                                        [146]";
  3. 22 PRINT"                                        [146]";
  4. 24 PRINT"                                        [146]";
  5. 26 PRINT"                                        [146]";
  6. 28 PRINT"                THE RACE                [146]";
  7. 30 PRINT"                                        [146]";
  8. 32 PRINT"[159]                                        [146]";
  9. 34 PRINT"                                        [146]":GOSUB392:GOSUB560
  10. 36 PRINT"[154]     PRESS  SPACE BAR [146] TO CONTINUE
  11. 38 [161]R$:[139]R$[179][177][199](32)[167]38
  12. 50 [137]1000
  13. 300 [141]530:[141]394:[153]"DEF TRY AGAIN!":[141]560:[141]391:[142]
  14. 350 [153]"               CORRECT!                 WAIT":[141]500
  15. 355 [141]392:[153]"LOAD":[141]391:[142]
  16. 370 [153]" READ THIS CAREFULLY":[141]560:[141]560:[141]394:[142]
  17. 390 [129]T[178]1[164]600:[130]:[142]
  18. 391 [129]T[178]1[164]1000:[130]:[142]
  19. 392 [129]T[178]1[164]2000:[130]:[142]
  20. 393 [129]T[178]1[164]3000:[130]:[142]
  21. 394 [129]T[178]1[164]4000:[130]:[142]
  22. 395 [129]T[178]1[164]5000:[130]:[142]
  23. 500 [143] <YES>
  24. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  25. 510 [151]54296,15:[151]54277,42:[151]54278,250
  26. 515 [151]54276,23:[151]54273,23:[151]54272,191
  27. 520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
  28. 525 [151]54296,0:[142]
  29. 530 [143] <NO>
  30. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  31. 540 [151]54296,15:[151]54277,18:[151]54278,242
  32. 545 [151]54276,33:[151]54273,4:[151]54272,48
  33. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  34. 555 [151]54296,0:[142]
  35. 560 [143] <BLIP>
  36. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  37. 570 [151]54296,8:[151]54277,42:[151]54278,250
  38. 575 [151]54276,23:[151]54273,23:[151]54272,191
  39. 580 [129]T[178]1[164]40:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  40. 585 [151]54296,0:[142]
  41. 1000 [153]"OPENLOAD I WANT YOU TO READ A STORY ABOUT A
  42. 1010 PRINT" RACE IN THE SCHOOL PLAYGROUND.
  43. 1020 [153]" AFTER YOU HAVE READ THE STORY, THERE
  44. 1030 PRINT" WILL BE SOME QUESTIONS FOR YOU TO       ANSWER.
  45. 1040 [153]"CONT PRESS SPACE BAR WHEN YOU ARE READY.":[141]560
  46. 1050 [161]R$:[139]R$[179][177][199](32)[167]1050
  47. 1055 [141] 1200
  48. 1060 [137]2000
  49. 1080 [141] 1200
  50. 1085 [137]2000
  51. 1200 [153]"LOAD              THE STORY                 WAIT"
  52. 1210 [153]"OPEN LAST MONDAY, TEN CHILDREN HAD A RACE.
  53. 1215 PRINT" THE RACE WAS ON THE SCHOOL PLAYGROUND.
  54. 1220 [153]" MR. BOYES STARTED THE RACE.  HE TOLD
  55. 1225 PRINT" THE CHILDREN TO STAND SIDE BY SIDE.
  56. 1230 [153]" "[199](34)"GET READY! ONE! TWO! THREE! GO!"[199](34)" HE"
  57. 1235 [153]" SAID.
  58. 1240 PRINT" AWAY WENT THE CHILDREN.  THEY RAN
  59. 1245 [153]" FASTER AND FASTER.  OTHER CHILDREN
  60. 1250 PRINT" WATCHED THEM RUN AND CHEERED THEM ON."
  61. 1255 REM
  62. 1260 REM
  63. 1265 PRINT" MARTIN FELL DOWN.  UMAR'S SHOE FELL     OFF.
  64. 1270 [153]" MR. BOYES SAID"[199](34)" ROBERTA WINS!"[199](34)
  65. 1275 [153]" JEFF CAME IN SECOND WITH BRAD AFTER
  66. 1280 PRINT" HIM.  TED WAS LAST IN THE RACE.
  67. 1285 [141]393:[141]560
  68. 1290 [153]"CONT PRESS THE  SPACE BAR WAIT FOR THE QUESTIONS
  69. 1295 GETR$:IFR$<>CHR$(32)THEN1295
  70. 1298 RETURN
  71. 2000 PRINT"[159][147] WHO WON THE RACE?[153]":GOSUB560
  72. 2010 PRINT" (A) ... JEFF
  73. 2020 [153]" (B) ... ROBERTA
  74. 2030 PRINT" (C) ... STEVE
  75. 2040 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  76. 2050 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2050
  77. 2060 IFR$="A"THENPRINT"[150] READ CAREFULLY":GOSUB300:P=P+1:GOTO2000
  78. 2070 IFR$="C"THENPRINT"[150] WHO IS HE? ":GOSUB300:P=P+1:GOTO2000
  79. 2080 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2000
  80. 2090 GOSUB350
  81. 2100 PRINT"[159][147] WHO STARTED THE RACE?[153]":GOSUB560
  82. 2110 PRINT" (A) ... MRS. GAGNER
  83. 2120 [153]" (B) ... MR. BOYD
  84. 2130 PRINT" (C) ... MR. BOYES
  85. 2140 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  86. 2150 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2150
  87. 2160 IFR$="A"THENPRINT"[150] SHE WAS HAVING COFFEE.":GOSUB300:P=P+1:GOTO2100
  88. 2170 IFR$="B"THENPRINT"[150] WHO IS HE?  ":GOSUB300:P=P+1:GOTO2100
  89. 2180 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2100
  90. 2190 GOSUB350
  91. 2200 PRINT"[159][147] WHO CAME SECOND?    [153]":GOSUB560
  92. 2210 PRINT" (A) ... JEFF
  93. 2220 [153]" (B) ... MARTIN
  94. 2230 PRINT" (C) ... UMAR
  95. 2240 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  96. 2250 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2250
  97. 2260 IFR$="B"THENPRINT"[150] MARTIN TRIPPED AND FELL.":GOSUB300:P=P+1:GOTO2200
  98. 2270 IFR$="C"THENPRINT"[150] UMAR LOST HIS SHOE.":GOSUB300:P=P+1:GOTO2200
  99. 2280 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2200
  100. 2290 GOSUB350
  101. 2300 PRINT"[159][147] WHEN WAS THE RACE?            [153]":GOSUB560
  102. 2310 PRINT" (A) ... LAST MONDAY
  103. 2320 [153]" (B) ... LAST NIGHT
  104. 2330 PRINT" (C) ... LAST SATURDAY
  105. 2340 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  106. 2350 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2350
  107. 2360 IFR$="B"THENPRINT"[150] NOPE!         ":GOSUB300:P=P+1:GOTO2300
  108. 2370 IFR$="C"THENPRINT"[150] WHY SATURDAY?    ":GOSUB300:P=P+1:GOTO2300
  109. 2380 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2300
  110. 2390 GOSUB350
  111. 2400 PRINT"[159][147] WHO WATCHED THE RACE?   [153]":GOSUB560
  112. 2410 PRINT" (A) ... FATHERS
  113. 2420 [153]" (B) ... CHILDREN
  114. 2430 PRINT" (C) ... MOTHERS
  115. 2440 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  116. 2450 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2450
  117. 2460 IFR$="A"THENPRINT"[150] FATHERS WERE AT WORK. ":GOSUB300:P=P+1:GOTO2400
  118. 2470 IFR$="C"THENPRINT"[150] REALLY?      ":GOSUB300:P=P+1:GOTO2400
  119. 2480 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2400
  120. 2490 GOSUB350
  121. 2500 PRINT"[159][147] HOW MANY CHILDREN FINISHED THE RACE?[153]":GOSUB560
  122. 2510 PRINT" (A) ... TEN
  123. 2520 [153]" (B) ... NINE
  124. 2530 PRINT" (C) ... EIGHT
  125. 2540 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  126. 2550 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2550
  127. 2560 IFR$="A"THENPRINT"[150] WHAT HAPPENED TO MARTIN? ":GOSUB300:P=P+1:GOTO2500
  128. 2570 IFR$="B"THENPRINT"[150] WHAT HAPPENED TO UMAR?":GOSUB300:P=P+1:GOTO2500
  129. 2580 IFR$="D"THENGOSUB370:GOSUB1200:P=P+1:GOTO2500
  130. 2590 GOSUB350
  131. 2600 PRINT"[159][147] WHAT HAPPENED TO UMAR?    [153]":GOSUB560
  132. 2610 PRINT" (A) ... HE FELL
  133. 2620 [153]" (B) ... HIS SHOE COME OFF
  134. 2630 PRINT" (C) ... HE BLEW HIS NOSE
  135. 2640 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  136. 2650 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2650
  137. 2660 IFR$="A"THENPRINT"[150] NOT SO!         ":GOSUB300:P=P+1:GOTO2600
  138. 2670 IFR$="C"THENPRINT"[150] UGH!         ":GOSUB300:P=P+1:GOTO2600
  139. 2680 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2600
  140. 2690 GOSUB350
  141. 2700 PRINT"[159][147] WHERE WAS THE RACE HELD?[153]":GOSUB560
  142. 2710 PRINT" (A) ... IN THE SCHOOL GYM
  143. 2720 [153]" (B) ... IN THE SCHOOL HALL
  144. 2730 PRINT" (C) ... IN THE SCHOOL PLAYGROUND"
  145. 2740 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  146. 2750 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2750
  147. 2760 [139]R$[178]"A"[167][153]"DEF WOW! THAT'S WILD!  ":[141]300:P[178]P[170]1:[137]2700
  148. 2770 [139]R$[178]"B"[167][153]"DEF NOT LIKELY!      ":[141]300:P[178]P[170]1:[137]2700
  149. 2780 [139]R$[178]"D"[167][141]370:[141]1200:[137]2700
  150. 2790 [141]350
  151. 2800 [153]"OPENLOAD WHAT IS THE BEST NAME FOR THIS STORY?PRINT":[141]560
  152. 2810 [153]" (A) ... MR.BOYES' PLAYGROUND
  153. 2820 PRINT" (B) ... A BOAT RACE
  154. 2830 [153]" (C) ... CHILDREN IN A RACE
  155. 2840 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  156. 2850 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2850
  157. 2860 [139]R$[178]"A"[167][153]"DEF WAKE UP!        ":[141]300:P[178]P[170]1:[137]2800
  158. 2870 [139]R$[178]"B"[167][153]"DEF YOU'RE BEING SILLY!":[141]300:P[178]P[170]1:[137]2800
  159. 2880 [139]R$[178]"D"[167][141]370:[141]1200:[137]2800
  160. 2890 [141]350
  161. 3000 [153]"LOAD             SCORE  BOARD               WAIT":[141]391
  162. 3005 [139]P[178]0[167][153]"SYS               EXCELLENT!"
  163. 3010 [139]P[178]0[167][141]500:[141]500:[141]393:[137]3045
  164. 3015 [139]P[178]1[167][153]"SYS      YOU MADE JUST ONE BLOOPER.":[141]391
  165. 3020 [139]P[178]1[167][153]"              GOOD WORK."
  166. 3025 [139]P[178]1[167][141]500:[141]393:[137]3045
  167. 3030 [153]"DEF         YOU MADE"P"BLOOPERS.":[141]530:[141]530:[141]392
  168. 3035 [153]"    YOU SHOULD REPEAT THIS STORY AND
  169. 3040 PRINT"       TRY TO GET A BETTER SCORE.":GOSUB 393
  170. 3045 PRINT"[153]                                        "
  171. 3050 PRINT"[159] YOU NOW HAVE A CHOICE:":GOSUB560
  172. 3055 PRINT" PRESS  R [146] TO REPEAT THIS STORY
  173. 3060 [153]" PRESS  M WAIT TO RETURN TO THE DISK MENU
  174. 3065 GETR$:IFR$<>"R"ANDR$<>"M"THEN 3065
  175. 3070 IFR$="R"THEN RESTORE:GOTO1000
  176. 3075 PRINT"[147] RETURNING TO THE DISK MENU
  177. 3080 [147]"MENU",8
  178. 3085 [138]
  179. 3090 [128]
  180. 4000 [143] WHC 92 05 25
  181.